perm filename STER[MUS,LCS] blob sn#271066 filedate 1977-03-23 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INSTRUMENT STER
C00003 ENDMK
C⊗;
INSTRUMENT STER;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
OUTA←OUTA+U2*P7;OUTB←OUTB+U2*(1-P7);END;
NCHNS←2;
PLAY;STER 0 .511 A 2000 F1 F4 1;
STER .511 P2 G 2000 F1 F4 .5;
STER P1*2 P2 FS 2000 F1 F4 0;FINISH;